home *** CD-ROM | disk | FTP | other *** search
/ You're the Director / You're The Director.iso / pc / pcf / ds.dir / 00252.ls < prev    next >
Encoding:
Text File  |  1995-10-08  |  1.0 KB  |  33 lines
  1. on exitFrame
  2.   global reset, letgo, prev
  3.   if prev = 2 then
  4.     playmovn3()
  5.   end if
  6.   set yu to the clickOn
  7.   if the visible of sprite 48 = 1 then
  8.     if (the controlDown = 1) or (prev = 0) then
  9.       set the movieRate of sprite 48 to 0
  10.       set the visible of sprite 48 to 0
  11.       puppetSprite(48, 0)
  12.     end if
  13.   end if
  14.   if not (the stillDown) and (reset = 1) then
  15.     reset()
  16.   end if
  17.   if the stillDown and (letgo = 2) and (yu > 12) and (yu < 19) and (the frame <> 56) then
  18.     set the locH of sprite yu to the mouseH
  19.     set the locV of sprite yu to the mouseV
  20.     if not ((the mouseH < 520) and (the mouseH > 122) and (the mouseV < 385) and (the mouseV > 130)) then
  21.       set the castNum of sprite yu to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2) & "s")
  22.     else
  23.       set the castNum of sprite yu to the number of cast string(chars(the name of cast the castNum of sprite yu, 1, 2))
  24.     end if
  25.     updateStage()
  26.     if sprite yu intersects 20 then
  27.       addbar(yu)
  28.     end if
  29.     updateStage()
  30.   end if
  31.   go(the frame)
  32. end
  33.